Dim subtotal, shipping, ordertotal
shipping = 5
subtotal = 199
ordertotal = subtotal - shipping
msgbox("Kwota zamwienia wynosi (PLN):" & ordertotal)
